home *** CD-ROM | disk | FTP | other *** search
/ Mac Mania 4 / MacMania 4.toast / / Demo's / Igor Demo Pro / 1 PutContentsIn Igor Pro Folder / WaveMetrics Procedures / Math Functions / Math Utility Functions < prev    next >
Text File  |  1994-02-18  |  327b  |  27 lines
  1.  
  2. | return log base 2
  3. Function/D log2(x)
  4.     variable/D x
  5.     
  6.     return   1.442695040888963*ln(x)
  7. end
  8.  
  9. | return the smallest power of 2 not smaller than x
  10. Function/D CeilPwr2(x)
  11.     variable/D x
  12.     
  13.     return 2^(ceil(log2(x)))
  14. end
  15.  
  16. | return sin(x)/x
  17. Function/D sinc(x)
  18.     Variable/D x
  19.     
  20.     if(x==0)
  21.         return 1
  22.     else
  23.         return sin(x)/x
  24.     endif
  25. end
  26.  
  27.